# Piotr Jastrzebski
# Marcin Nazimek

source('src/algorithms/knn.r')
source('src/algorithms/bayes.r')
source('src/algorithms/tfidf.r')
source('src/algorithms/tree.r')
source('src/algorithms/forest.r')
source('src/algorithms/bayesFromR.r')
source('src/algorithms/knnFromR.r')

source('src/utils/evaluate.r')
source('src/utils/load.r')
source('src/utils/ownFunctions.r')

main.main <- function(){
	

	print('START')
	
	# Loads train and test set into data frames
	trainSet <- load.loadFromFile('data/trainSet.txt')
	testSet <- load.loadFromFile('data/testSet.txt')
	
	#evaluate.evaluate(testSet, trainSet)
	
	install.packages("classifiersComparator_2.1.tar.gz", repos=NULL,type="src")
	library('classifiersComparator')
	classifiersComparator(trainSet,testSet)
	
	print('STOP')
}
